Voorbeeld van de functie GetAllSettings

Dit voorbeeld maakt eerst gebruik van de instructie SaveSetting voor invoer in het Register van WindowsMacintosh(of .ini-bestand op 16-bits Windows-platformen) voor de toepassing gespecificeerd als appname en maakt vervolgens gebruik van de functie GetAllSettings om de instellingen weer te geven. De toepassingsnamen en namen van section kunnen niet worden opgehaald met GetAllSettings. Ten slotte verwijdert de instructie DeleteSetting de invoer van de toepassing.

' Variant voor tweedimensionale matrix die door GetAllSettings wordt teruggegeven
' Integer om teller te bewaren.
Dim MySettings As Variant, intSettings As Integer
' Plaatst enkele instellingen in het Register.
SaveSetting appname := "MijnToep", section := "Starten", _
key := "Boven", setting := 75
SaveSetting "MijnToep","Starten", "Links", 50
' Haalt de instellingen op.
MySettings = GetAllSettings(appname := "MijnToep", section := "Starten")
    For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
        Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
    Next intSettings
DeleteSetting "MijnToep", "Starten"